\start83\
\comment=Made by dizzy p. 270198.slow at the moment
\name=HEX2
\file=C:\WINLINK\HEX2\HEX2.TXT
"0123456789ABCDEF"\->\Str0
ClrHome
Input "DEC->",A
0\->\L
For(T,0,7)
16^(7-T)\->\C
iPart(A/C)\->\B
A-B*C\->\A
Output(8,9+L,sub(Str0,B+1,1))
L+1\->\L
End
\stop83\

